Libris Britannia 4/science library(b).zip/science library(b)/TECHNICA/AUTOCAD/H108.ZIP/MM10.ZIP/MMK.LSP

Text File | 1991-08-01 | 3KB | 2 lines

(DEFUN C:MM(/ Qj Q@ QQ Ql Q& Q1 *ERROR* Q# Q& Q0 Q$ QO)(TEXTSCR)(DEFUN *ERROR*(Q|)(Q%)(TERPRI)(PRINC(STRCAT"ERROR: "Q|))(PRINC))(DEFUN Qj(Q?j / Qjj QO)(SETQ QO 0)(FOREACH Qjj Q@j(IF(= Q?j(CAR Qjj))(PROGN(SETQ QO 1)(SETQ Q0 Qjj))))(EVAL QO))(SETQ Q# NIL Q1"\e["Q&""QQ 13 Ql 8 Q@ 27)(QQj)(PRINC"Terminate macro record with ESCAPE key")(TERPRI)(PRINC"Press the key you wish to assign macro to: ")(SETQ Q$(Qlj))(TERPRI)(PRINC"Enter the keystrokes to be recorded to macro: ")(TERPRI)(IF(> Q$ 125)(SETQ Q$(STRCAT"0;"(ITOA(- Q$ 128))))(SETQ Q$(ITOA Q$)))(SETQ QO(Qj Q$))(SETQ Q#(Qlj))(WHILE(/= Q# Q@)(COND((= Q# QQ)(SETQ Q&(STRCAT Q&" "))(PRINC" "))((AND(= Q# Ql)(>(STRLEN Q&)0))(PROMPT"\e[D\e[K")(SETQ Q&(SUBSTR Q& 1(1-(STRLEN Q&)))))(T(SETQ Q&(STRCAT Q&(CHR Q#)))(PRINC(CHR Q#))))(SETQ Q#(Qlj)))(TERPRI)(COND((AND(= QO 0)(NOT Q@j))(SETQ Q@j(LIST(CONS Q$ Q&))))((AND(= QO 0)Q@j)(SETQ Q@j(APPEND Q@j(LIST(CONS Q$ Q&)))))((AND(= QO 1)Q@j)(SETQ Q@j(SUBST(CONS Q$ Q&)Q0 Q@j))(SETQ Q0 NIL)))(SETQ Q1(STRCAT Q1 Q$";'"Q&"'p"))(PROMPT Q1)(Q%)(PRINC))(DEFUN C:MMW(/ Q&j Q1 Qjj)(TERPRI)(SETQ Q1(GETSTRING"Enter list file to write: "))(SETQ Q&j(OPEN Q1"w"))(WRITE-LINE"MM  Macro file "Q&j)(IF Q&j(PROGN(FOREACH Qjj Q@j(PROGN(WRITE-LINE(CAR Qjj)Q&j)(WRITE-LINE(CDR Qjj)Q&j)))(CLOSE Q&j))(*ERROR*(STRCAT"Cant open file: "Q1)))(PRINC))(DEFUN C:MMUL()(QQj)(TERPRI)(PRINC"Macros unloaded")(PRINC))(DEFUN C:MMLL()(Q%)(TERPRI)(PRINC"Macros reloaded")(PRINC))(DEFUN C:MMLF(/ Q1j Q#j Q1 Q&j)(TERPRI)(SETQ Q@j NIL)(SETQ Q1(GETSTRING"Enter list file to load: "))(SETQ Q&j(OPEN Q1"r"))(IF Q&j(PROGN(IF(=(READ-LINE Q&j)"MM  Macro file ")(PROGN(WHILE(SETQ Q1j(READ-LINE Q&j))(SETQ Q#j(READ-LINE Q&j))(IF Q@j(SETQ Q@j(APPEND Q@j(LIST(CONS Q1j Q#j))))(SETQ Q@j(LIST(CONS Q1j Q#j))))))(*ERROR*(STRCAT Q1" is not a valid macro file")))(CLOSE Q&j))(*ERROR*(STRCAT Q1" is not a valid macro file")))(Q%)(PRINC))(DEFUN QQj(/ Qjj Q#)(FOREACH Qjj Q@j(PROGN(SETQ Q#(CAR Qjj))(PROMPT(STRCAT"\e["Q#";"Q#"p")))))(DEFUN Q%(/ Qjj Q1)(TEXTSCR)(IF Q@j(FOREACH Qjj Q@j(PROGN(SETQ Q1(STRCAT"\e["(CAR Qjj)";'"(CDR Qjj)"'p"))(PROMPT Q1)))))(DEFUN Qlj(/ Q0j Q#)(WHILE(/= Q0j 2)(SETQ Q0j(GRREAD))(SETQ Q#(CAR(CDR Q0j)))(SETQ Q0j(CAR Q0j)))(EVAL Q#))(PRINC)(TERPRI)(PRINC" Macro Maker Ver 1.00   Copyright (c) 1991 Scott Hares.  Invoke with MM")(TERPRI)(PRINC" Please send $5.00 donation to Scott Hares 1108 Kelez Dr. San Jose Ca, 95120")(TERPRI)(SETVAR"CMDECHO"0)(COMMAND"undefine""quit")(COMMAND"undefine""end")(DEFUN C:QUIT()(SETVAR"cmdecho"0)(TEXTSCR)(QQj)(PRINC)(COMMAND".quit"))(DEFUN C:END()(SETVAR"cmdecho"0)(TEXTSCR)(QQj)(PRINC)(COMMAND".end"))(SETVAR"CMDECHO"1)(PRIN1)